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! •ooCOPYRIKhT 1969, nlGITAL i^QUIPMENT CORP.. MAYNARD. MASS,"** 

;THIS SUR-PROGRAv ASSEMBLEO ''MTH SYSTEM PARAMETER FILE - S.MAC(V'll4) 

XLIST 

LIST 
;THIS SUB-PROGRAM ASSEMBLED '-JIIH CONE I CURAT I ON DEPENDENT FEATURE SWITCHES - FT50SB,MAC( 

XLIST 

LIST 
TITLE COREl - LOGICAL AND PHYSICAL CORE ALLOCATION ROUTINES - V414 
SU9TTL T, HASTINCS/TH/Pcn T" 04 JUN 69 
XP VC0RE1.414t 

jTMIS MACRO PUTS VERSION NO. IN STORAGE MAP AND GLOB 

ENTRY COREl lALWAYS LOAD COREIIFOR LIB SEARCH) 
JCORE ALLOCATION IS DONE ON » lf< BLOCK BASIS 
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iUSING A USE BIT TABLE(CORTAb) WHICH HAS A 1 

;FOR EVERY BLOCK WHICH IS ^OT AVAILABLE BECAUSE! 

; 1. IN USE BY MONITOR 

) 2, IN USE BY USER 

) 3.N0N-EXISTANT MEMORY 

ik) MEANS BLOCK IS NOT IN USE 

JWHEN THE SYSTEM IS STARTED, SYSINl! PETS THE C0RTA9 TABLE 

lIT ALSO SETS A BYTE PO 1 NTER ( CORLST ) WHICH POINTS TO THE 

;LOWEST vON-FXIbTANT BLOCK IMMFQIATELY APOVE THE HIGHEST 

;EXISTANT BLnCK. IT ALSO SET? CORTAL TO THE n'O. OF 

IFREE BLOCKS AVAILABLE, 

!THE COREl ROUTINE ASSIGNS CORE IF POSSIRLE, SETS THE USE PITS, 

lAND MOVES THE JOB IF NEW ASSIGNMENT IS A DIFFERENT PLACE THAN OLD 

(THE JBTaOR TABLE IS ALSO UPDATED BY THE CORF ROUTINES 

;LH=PROTECTION,Rh=RELOCATION 

IJOBADR IS MODIFIED IF CORE fqr CURRENT JOB 

iHARDWARE RELOC. AND PROTEC, ARE RESET IF CURRENT JOT 

.-FINALLY JOBREL<PROTECT10N) IN JOB DATA ARFA IS ALWAYS UPQATED 

(LIST OF GLOPALS AFFECTED! 
;JBTADR,CORTAL.CORTAB,HOLEF,SHFWAT.JOBAOR 

!ACS USEntRESlDES TaC . TACl . JDAT , I OS . DEVO AT , AND POP) 

000012 BLK=3UFPNT (HIGHEST REL. AQR. IN USER AREA 

000013 LOC=BUFWRD (ASS, LOC, OF FIRST Block In USER AREA 

000015 T=AC1 (TEMPORARY 

000016 T1=AC2 I" 
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CORE uuo 

call: "DVEI AC, HIGHEST REL. AD". DESIRED IN' LOW SET, 

HRLI AC, HIGHEST R£L , ADR, OESIREO I'm HIG" SEG 

CALL An,CSIXBIT /CORF/^ 

ERROR RETURN 

OK RETURw TO USER, JOB MOVED IF NECESSARY 
RETURN VO. OF FREE IK BLOCKS IN aC(OR MAX, MO. SLOCKS ALLOWED IF SwAPPr 
BOTu HALVES 1} MEANS ERROR RETURN: NO, OF FREE IK BLOCKS(OR MAX. NO, OF Bi 
ALLOWED IF SWAPPING SYSTEM) ImmehiatElY WITHOUT AFFECTING CORE 
OR WAITING FOR 10 DEVICES 
LH = MEANS DO NOT CHA\T,F Hir.H SFG ASSIGNMENT 
RH = I7I MEANS 00 N'^T CHANGE LOW SEI^ ASSIGNMENT 

INTERNAL CORUUO 

EXTERNAL USRREL.JOB.CORTAL 

EXTERNAL ESTOPl. I OWA I T . QERROP , SETREL i STQTAC , WSCHEO 



G SYS) 
OCKS 



322040 
261140 
26.?140 
550043 
122040 

435040 

260140 

?540'»0 



000016 I 

000001 

000000 
0000:^0 

000010' 

001777 

000126 ' 
0000H ' 



?00k)ia 564043 000000 



CORUUO! JUMPE TAC.2ERC0R 
PUSH PDP,TAC 
PUShj POP, lOWAI T 
HRRZ TAC, (POP) 
JUMPE TACCORUl 
lORI TAC, 1777 
PUShj PDPiCOREl 
JRST CORFRR 

CORUi: HLRZ TAC, (POP) 
!FE FT2HFL.< 

CAMG TACUSRREl 



IFN F72RFL,< 

EXTERN UCORHI 
260140 000000 PUShj pdp.ucoRhi 



2540/0 000014' 



JRST COHERR 



35001^3 777777 40S -l(PnP) 

262140 000001 CORER'^: POP pdp.TAC 

IFM rTSWAP,< 
260140 00^000 PUSHJ PDP.WSCHED 



> 

7ERC0H ! 

IFF FTSWAP,< 

MOVE TACCORTAL 



!IS HE ASKING FOR EERO CORE? 

INO, SAVE HIGHEST DESIRED ADDRESS IN BOTu SEGS 

IWAIT FOR ALL DEVICE INACTIVE 

(HIGHEST REL. LOC, DESIRED FOR LOW SEG(Rm) 

MS RH 0(IF YES no NOT CHANGE LOW SEG)7 

INO, MAKE IT AN EVEN MULTIPLE OF lK-1 

ITRY TO ASSIGN CORE 

INOT AVAILABLE. ERROR RETURN 

I SU" OF NEW LOW AND OLD HIGH SEG TOO Sir, 

ICHECK TO SEE IF USER IS REQUESTJmG HIGH CORE 

10 MEANS NO CHANGE. 1 THRU TOP OF LOW SEG MEANS 

1 RETURN HIGH CORE (IF ANY), ALWAYS LEC-AI 

J EVEN IF NO HIGH SEB SHARP WARE OR SOFT.^ARE 



ITRY TO ASSIGN CORE FOR HIGH SEG, 

1 UCORHI EXPFCTS ARG ON PD LIST 

lERROR-ACTIVF IO(SAVE IN PROGRESS FOR SOmE USER) 

I OR SUM OF ^iEW LOW SEG AND NEW HIGH SEG TOO BIG 

ISET FOR OK(SKIP) RETURN 
IRFMOVE ARG FROM LIST 

ICALL SCHEDULER TO STOP JOB 

I IN CASE LOI.: SEG MUST BE SWAPPED OUT To EXPAND 
I OR HIGH SEG LOGICAL CORE ASSIGNED on oiSK 
1 SAVE ALL ACS EXCEPT AC1,AC2,AC3, 



IRFTURN NO. OF FREE IK BLOCKS (COUNTING 
I DORMANT AND IDLE SEGMENTS AS FREE) 



IFN' rTSWAP,< 
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1S«1 000016 

1"?. !^00017 

1113 

1!'4 l?,e^0?IS 



200040 
?4?040 



0000P10 
777766 



254000 000000 



MOVE TAC.COR'^AX 
LSM TACi-12 

JRST STOTAC 



V414 MACRO, V36 19:03 4-JUM-69 PAGE 14-1 

iRCTURN MAX, NO, IK BLOCKS ALLOWED FOR 1 USE» 
SSTORE IN USER AC AND RETURN TO 'ISEK 
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iHouTiwE TO Check jo«:3 tc see ir a^y job ca.n be shuffled 

ilT IS CALLEO EVERY 6'.3Th OF A SECOMD BY CLOCK RQUTI.gE 
!PROVlni\'G C'IRRE\'T J0I3 IS IN USfC hqOE OR JUST ENTERING 



CALLS 
RESPECT 



ilO 1.AIT OR SHARaBLE device "AIT 0^ "^ETji^Mi^jG ON UUO 

;IE CURRENT jon AMO ALL OTHE? joh ARE ShuFFai^LE WITH 

;T0 RELOCATION INFO IN ><0NITnR 

iSINCE RESCHEOULINC IS NEVER DONE 'JHEN CURRENT JOB 

MS NOT SHUFFAPLE. ALL jngs 4RE SHUFFaBl'^ Whpn 

JCHKSHF IS CALLEn, 

;THE NOSMUFFLE MACRO SHOULD "JTILL 9£ USED WHEN EVER 

JTME MONITOR MOVES RELOCATIO'- "UT OF ACS POP, PROG. OR JDAT 

;IN CASE IT ShOUlO prove DESIRABLE IN THE FUTURE TO SHUFFLE 

;M0RE frfquemtly than 4T THE ABOVE TIMES 

;FINALIY A JOB MUST HAVE ALL DFVICES I NACT I VE ( S I NCF SOME 

;0F THFM USE ABSOLUTE ADORFS^ES ) BEFORE IT CAN BE MOVED 

!S0 CORE CANNOT BE REASSIGNED WHILE DEVICES ARE ACTIVE 

ilF DEVICES ARE ACTIVE. JOB HLL BE STOPPED SO THAT lo ^ILL 

;CEASE SOON SO JOB CAN BE ShuFFlEO 

;ail DEVICES LOOK AT She bit in jhtstsiadvbff or aovbfe) 

;T0 SEE IF MONITOR IS WAITING TO SHUFFLE JOB 

iTHE ivSHF bit in J8TSTS UHOUl D BE SET FqR JQPS USING DISPLAYS 
ISINCE DISSEP CONTINUALLY REFEPFMCES USER AREA EVEN THOUGH 
i lOACl IS OFF, 
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ei0pi034 

(?00035 
000036 



P00037 
000040 

000041 
000042 
000043 
000044 



000045 
000046 



000047 
000050 
000051 
000052 



STHIS VERSIQM OF THE CORE SHl'FFLER WORKS AS FOLLOWS: 

;EVERV CLOCK TICK FQR WHICH ALL JOBS ARE SHU^F ABLE ( MOT COUNTING ACTIVE 

;in 'DEVICES), THr JQO IMMEOIATEUV ABOVE THE LOWEST HOLE 

MIF ANY) WILL HE MOVEn OOWN INTO HOLEi THE HOLEF IS SET NON-HERO 

(To THE ADORFSS OF JOB IMMEDIATELY A50VE THE LOWEST 

!HOLF(0 !F NONE), EVE^Y TIME CORE IS REASSIGNEO, 

(CANNOT BE CALLED WHILE SWAPPING IN PROGRESS FOR THIS JOR(BECAUSE IT CALl S CORE0) 

INTERNAL CHKSHF.FTSWAP 

EXTERNAL SHFWAT,HOLEF,CLKCHL,JBTADR,JBTSTS.JRTMAX 



I"00021 332200 000000 CHKShFs SKIPE ITEM.SHFWAT 

000022 254000 000034' JRST SHFlOP 

i»00023 336040 000000 SKIPN TACiHOLEF 

000024 263140 000000 POPj POP, 

000025 201200 000000 MQVEI ITeMiJBTMAX 

000026 550104 000000 HOLLOP! 'JRRZ T ACl • JBTAOR ( I TE" ) 

000027 312100 000001 CAME TACl.TAC 

000030 367200 000026' SOJG ITEM, HOLLOP 

000031 327200 000034' JUMPG ITEM. SHFLOP 

000032 402000 000023' SETZM HOlEF 

JSP nAT.oERRQR 



000033 265240 000000 



(HAS CHKSHF STOPPED A JOB AND IS WAITING FOR 

I DEVICES TO BECOME INACTIVE? 

lYFS. SEE IF !0 HAS STOPPEO YET 

INO, DOES CORE HAVE A HOLE IN IT? 

(NO 

(SEARCH FOR JOB OR HIGH SEO JUST ABOVE HTLE 

lAOR, OF JOB 



INOT JOB ABOVE HOLE KEEP LOOKG 

(FOUND ONE? 

(NO, CLEAR HOLFF OR ELSE ERROR WILL BE PRINTED EVERY 

( CLOCK TICK AND ERROR MESSAGE WILL NEVER PRINT 

(SYSTEM ERROR(TELL OPERATOR) 



332344 
260140 

254000 



554040 
260140 

402000 
205040 
412044 
263140 



336000 
254000 



214040 
312200 
316200 

254000 



000026 ' 
000057 I 
000045 ' 



SHFLOP! SKIPE PROG, JBTADR( ITEM) (JOB ABOVE H^LE STILL IN CORE ? 



000007 
000111' 

000021' 
004000 
000000 
000000 



PUSHJ PDP,ANYACT 

JRST NOTSHF 
IFN JDAT-PROG.< 

MOVE JOAT, JBTDATf ITEM) 
> 

HLRZ TACPROG 

PUSHJ POP, SCORE! 

NOTSHl! SETEM SHFWAT 
MOVSI TAC.SHF 
ANOCAM TaC, JRTSTS( ITEM) 
POPJ POP, 



(NO ALL DEVICES FINISHED ? 

(YES, GO SEE IF HOLE STILL THERE 

(JOB DATA AREA 

(YES, REASSIGN SAME AMOUNT OF CQPE. 
(IN A LOWER POSITION IN CORE 

(JOB SHUFFLED, CLEAR FLAG 

(CLEAR SHUFFLE WAIT BIT IN CASE IT WAS Cm 



(JOB CANNOT RE MOVED BECAUSE IT HAS ACTIVE DEVICES OR NSHF BIT SET ( I SPL AY , RE ALT I ME ) 
( SO JOB CANNOT BY SHUFFLED AT THIS TIME 



000032' 
000041 ' 



000000 
000000 
000001 
000041' 



NOTSHF! SKIP"" HOLEF 
JRST NOTSHl 

IFN FTSWAP,< 

EXTERNAL FIT, FORCE 
MOVM TAC, FORCE 
CAME ITEM, FIT 
CAMN ITEM, TAC 
JRST NOTSHl 

> 



I IS HOLE STILL THERE? 
(NO 
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in2 ^Jieeasj 20?2!?0 00^041' 

11J pie(»0';4 ?05e4e 004000 

1«4 00(!!055 436(?44 ?l00043i 

1P5 (?00056 263140 000000 



MOVEM ITEM.SHFWAT 
MDVSI TAC.SHF 
lORM TACJBTSTSC 'TEM) 
POPj PDF, 



;SET SHUFFLE WAIT FLAG l« I T H J0° MO, 
(SET SHE 1,AIT PflT IM JOB STATUS WO''D 
.•SO JO? WILL NOT BE RUN 
lANO 10 WILL STOP SOON 
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238 


000062 


603540 


001000 


239 
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224 
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2?5 
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226 


000075 


332320 


000015 
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000076 


616005 


000002 
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000077 


365700 


000075' 


229 


000100 


321700 


000065' 


23 


000101 


615746 


000004 


231 


000102 


253140 


000000 
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2540H0 


000077 ' 



;ROUTINE TO TEST FOR AMY ACTIVE DEVICES 

iCALL! MOVE ITEM/JOB NUMBER OR HIGH SEG NUMPER 

i MOVE JDAT.AOnRrsR Or JOB DATA AREA 

i PUSHJ PDP.ANYACT 

i DEVICES ACTIVE 

I DEVICES WOT ACTIVE EYCERT POSSIBLY TTY 

UN SWAPPING SYSTEMS AMYACT IS SRQXEN INTO 2 CALLS, TRYSWP AND ANYDEV 

;TRYSWP TESTS WHTETheR SWAPPER SHOULD EVEN CONSIDER SWAPPING JOB 

INTERN ANYACT.ANYOEV 
EXTERN JOBMAX 

ANYACT i 

lEN FTSWAP,< 

INTERN AMYDEV 

PUSHJ POP, TRYSWP 

POPj PDP, 



ANYDEVl MOVE T, JRTSTSdTFM) 

TLNE T.NSHF 

POPJ PDP, 
IFN FT2RFL.< 

CAILF ITEM,JOBMAX 

JRST CPOPJl 



■^OVEI T, JOBJDAI JOAT) 
CAMN ITEm.JOR 
"OVEI T.USRJDA 

MOVEI IQS.IOACT 
HRRE T1,J0BJMH(T) 



TLO T.Tl 

MOVS! AC3#DVTTY IDFVICE 
ANY! SKIPr nEVOAT.eT 

TDNN IOS,DEVIOS(DEVOAT) 
ANY2[ SOJGE Tl.ANY 

JUMPL Tl, CPOPJl 

TDNN AC3,OEVM0D(DEVDAT) 

POPj PDP, 

JRST AMY2 



ISHOULD SWAPPER MAKE JOB UNRUNNARLE 

I IN ORDER TO SWAP OUT? 

INO, ACTIVE SAVE IN PROGRESS OR NSHF,NSWP SET 

I (REAL TIME OR DISPLAY) 

IIS JOB(nR HIGH SEG) NOT SHUFFABLE7 
(DISPLAY AND REAL TIME SET NSHF 
ICANNOT BE SHUFFLED 

lYES, IT THIS A HIGH SEG? 

(YES, OK TO SHUFFLE OR SWAP SINCE NSHF.NSWP NOT SET 

1 AND NO SAVE IN PROGRESS 

(ASSUME JOB IS NOT CURRENT JOB 

(IS IT? 

(IT IS CURRENT JOB 

( DEVICE ASSIGNMENT TABLE IN MQ'JITOR 

I 10 DEVICE ACTIVE BIT 

(GET NO, OF USER 10 CHANNELS IN JSF 

I FOR JOP(EITHFR FROM jqb DATA A°EA 

I OR FROM MONITOR (IGNORE LH WHICH MAY Br-1 

I IF SAVGET IN PROGRESS) 

(SET TO ADD T TO Tl 

IS A TTY BIT 

(IS A DEVICE ASSIGNED TO THIS CHANNEL? 

(YES, IS IT ACTIVE? 

INO, KEEP LOOKING 

(YES, FINISHED YET? 

(NOT FINISHED, IS DEVICE TTY? 

INO, ERROR RETURN, CANNOT ASSIGN CORE 

(YES, KEEP LOOKING FOR A-J ACTIVE DEVICE 



COREl - LOGICAL 4ND PHYSICAL CORE ALLOCATION ROUTINE^ - V414 
T. HASTINGS/TH/RCC TS 11 J'JN 6Q 



MACRC,\/36 19!03 4.Jim-69 PAGE 18 



213 
?3 4 
?15 
236 
J3 7 
?36 
239 

?4ia 

241 
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249 
2'50 
Z^il 
252 
253 
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256 



ROUTINE TO TEST TO SEE IF J^e OR HIGH SCG CAN BE SWAPPER 
OR WHETHER IT SHOULD BE AlIOWEO TO -- - - bWAPPEO 
UNTIL A MORE FAVORABLE TIMr 

CALL' yQVE ITEM, HIGH RO LO'- 
PUSHJ pdp.trys^p 



CONTINUE RUNNING 
SET. NU>^BER 



i 



R™::^ : i°^jr.:.r:ro: nR^^^^L^^^r^^''^ ''' "' '''''''' '^ -°=«"^' 



IFN FTSUAP,< 

INTERN TRYSwP 
EXTERN JPTSTS.CPOPJl 

It^^'lt ^S^''''' 0«'»>'61' TRYSWP: MOVE T,J5TSTS(IT£M) 



("BClP'b 603640 0110f)0 
K001^6 263140 00fl0H0 



00011"? ?540f«0 000030 



TLNE T,NSHF;nSWP 
POPj PnP, 
IFM FT2RrL,< 

EXTERN AnYSAV 
JRRT ANYSAV 



IFF FT2RFL,< 

.IRST CPOPJl 

> 



IIS JOR OF HIGH SEG NOT SWAPPARLE? 
lOR SHUFFABLECDISPLAY.REAL TIMF)! 
lYES, ERROR PETURN 



INO, SEE IF THIS JOB IS INVLOVED IN A SAv.GET 
I WHICH IS STILL ACTIVE 3«v,i.ti 



!l\iO, GIVE Ok RETURN 



C0RE1 
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3?12 
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B^tS^^^B''^^^^-'^-"" 



000110 201040 

000111 370003 

000112 254000 



000000 
000000 
000141' 



,Ca[u' "oVE ITEM. HIGH OR LOW SEGMENT NUMBER 
, PUSHJ PDP.KCDREl 

ALWAVS RETURN HERE 



I 

ISCOR 



£1 IS CALLED EROM SHUFFUER WITH TAC SET TO SEG SI?E 



KCOREl: 
SCORFll 



INTERN KCOREl 

MOVEl TAC.0 
SOS (PDP) 
JRST COREIA 



(SETUP DESIRED HIGHEST ADR 
irOREl WILL ALWAYS SKIP RETURN 



RE0 IS CALLED BY THE CORE MONITOR COMMAND AND THE CORE SHUFFLER 



SCORE 



iANO HUN COMMAND 



ICALL 
I 



,B0?H7SGIcrL AND PHYSICAL cnRF ASSIGNMENT ARE AFFECTED 
MOVE TAC, HIGHEST LEGAL ASSRESSABLE LOC. OESIREO 
:°:^^J^^;^Sr^R0T!.RFLOC.3 = .BTADRnTEH, 

1 PUSHJ PDP.COREI 

ERROR lElTHER JOB HAS ACTIVE 10 
; OR NOT ENOUGH CORE 

\iZ^l3€K:t^'^^ l^l''^^^^^^ - EITHER RETURN 
'//mFANS NONE ASSIGNED IN MEMORY. ASSIGNED ON DISK 

i::;^ErN:t CnRF?,FTT,ME.FTTRPSET.CORGET FTs.AP 
rxTERNAL JOBJDA.JOB.USRJOA.JOBADR.JBTADR 
EXTERN L JobREL; ORAOR.jnBDAr.JOPPC.JOROAT.jeTnAT 
EXTERNAL CORT AL . CORLST , CORTAR , HOLEF , CLRWRD 
EXTERNAL USRREL.CPOPJl.JOBJMH.JMENBj^jOBDPD.JOBDPC 

E 




?UP0n"waPIN by the SWAPPER. VIRTAL IS INCREASED THEN RATHER THAN 
!?T WILl'tRY to REaIsIgN CORF IN MEMORY IF OLD CORE IN MEMORY 



COREL 
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310 
311 
312 
313 
314 
315 
316 
317 
31 8 



!IF THIS FAILS, IT WILL REASSIGhJ NEW CORE 0,N DISK AND ASK SWAPPER TO EXp.ND 

ilF JOB DID NOT HAVE OLD CORE, A^' ATTEMPT WILL BE MADE TO ASSIGN CORE I?.' mFmoRV 

I IF THIS FAILS, TI klLL 'i€ A?SIGVEO ON THE DISK AND ASK SWAPPER To EXPA\", 

)THE OTHER PLACES IK THE MONITOR WHERE THE IN-CORE COUNT IS TOUCHED IS 

)IN GET WHERE IT INCREMENTS TO SHARE COPY ALREADY IN CORE. 

;and end of SWAPIN GF LOW SEG AMD HIGH SEE IS ALREADY IN CORE FOR OTHER '^SER 

.•THE CORE ROUTINES CD NOT ALTER THE HIGH SEG IN CORE COUNT. IT IS UP To THE CALLER 

J(IN SEGrOM) TO CALL THE CORF ROUTINES ONLY IF IN CORE COUNT IS H , 

lAND END OF SWAPIN OF LOW SEG AND HIGH SEG IS ALREADY IN CORE fOR OTHER 'iSER 
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P)0(!114 260140 000000 



319 00C113 

320 

321 

322 

323 

325 000113 326340 000123 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

33 8 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 



CORE0! 

Iff FTSWAP.< 

JUMPE PROGiCORGET 

> 

IFN FTSWAP.< 
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IIS JOB WITHOUT CORE IN MEMORY? 



000115 
000116 
000117 
(!\00120 
000121 



000122 
000123 



263140 
205100 
616104 
254000 
260140 



000000 
002000 
000104' 
000126' 

000000 



254000 000100' 



?00123 336000 



000124 
000125 



260140 
263140 



300000 



000057' 

000000 



--K;ssr-™t;;«.i» ;;;| -= '".f ;rs 



RE UUO) 



IFE FT2REL.< 
EXTERN CORMAX 
CAML TAG, CORMAX 



IFN FT2REL.< 
EXTERN SUMSEG 
PUSHJ POP. SUMSEG 



POPJ POP, 

MOVSI TACliSWP 

TONN TACl. JBTSTSCITEM) 

JRST COREl 

PUSHJ PDPiCHGSWP 



JRST CPOPJl 

CORE0AI 

EXTERNAL JBTSWP 

> 

IFN FTTRPSET,< 

FXTERNAL STOPTS 
SKIPN STfiPTS 



PUSHJ PDP.ANYACT 
POPj PDP> 



.wn UIIL REQUEST FIT IN PHYSICAL CORE? 
I^ciMpiRE WITH LARGEST PERMITTED ADR*1(8m1L0 AND 
I ONCE CAN RESTART CORMAX) 



.KJO WILL SUM OF BOTH SEGMENTS FIT IN PHYSICAL CORE? 
; URGEST PERMITTED CORE. rOMPARE SUM WITH CORMAX 

INO, GIVE ERROR RETURN 

IImaY^HAVeTdIsS^SPACE ALTHOUGH SWAPPED OUT) 
,M0, try TO ASSIGN CORE IN MEMORY 




(FRAGMENTATION POSTPONES RETURNING SPACE AND 
I INCREASING VIRTAL UNTIL SWAP IM IF NOT ASKIN 



I FOR VIRTUAL CORE) 
(GIVE OK RETURN TO CALLER 



INO, IS TIME SHARING STOPPED RY 
I TRPSET UUO DONE FOR JOB 1? 



INO, ANY ACTIVE DEVICE? 
lYFSi CANNOT ASSIGN CORE 
) NO. FALL INTO CCEl 
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364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
3A1 
382 
313 
3B4 
3B5 
386 
3H7 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
4P)0 
4'»1 
4;' 2 
4513 
474 
4C5 
476 
4^7 
4;:>8 
4^9 
41C 
411 



00P126 



00C126 260140 

("00127 336540 

("00130 '11540 

000131 240540 

000132 274540 
?!00133 J15540 



000134 260140 

000135 263140 

000136 271540 

000137 213000 
000140 272540 



000141 

700141 322340 

000142 560540 

000143 =54500 

000144 201640 

000145 260140 



000000 
000001 
000001 

777766 

000002 
000000 



000114' 

000000 

000001 
00001 3 
000133' 



(ROUTINE TO TRY TO ASSIGN CORE IM CORE 

(LOW OR HIGH SI"G MUST «JOT RE SWAPPED OUTtCALLER'S RESPONSIBILITY) 

(AND MUST i^OT HAVE ANY ACTIVE ';EVirES<IT MAY HAVE 1 CORE IN CORE THOUGH) 

I IN OTHER WO°OS HIGH OR LOW «;eG maY OR MAY NOT HAVE VIRTUAL CORE 

(BUT IF IT HAS VIRTUAL CORE !T MUST RE IN PHYSICAL CORE 

(Tuis IS BOTH k LOGICAL AN" 4 PHYSICAL CORE ASSIGNMENT 

(FIRST OLD CORE IS RETURNED TO SYSTEM 

(THEN NEW REOUI'ST IS ATTEMPTFD TO HE SATISFIED IN LOWEST 

(POSITION POSSIBLE. Thus core tends to re packed 

(IF NEW REOUFSr CANNOT BE GRANTED, OLD AMOUNT IS RETAINED. IF NON-SWAPPING SY5 
(OTHFHWISE S'JAPPFR IS CALLED(XPAND) TO EXPAND CORE BY SWAPPING OUT 



COREli 



EXTERN SEGSI? 
MOSCHEOUlE 



IFN FTSWAP.< 

EXTERN VIRTAL 
PUSHJ PDP.SEGSU 
SKIPN LOC.TAC 
MOVNI LOCI 

ASH L0C.-12 

SUB LOn.TACl 

CAI'GF LOC. VIRTAL 
> 
IKE FT2REL.< 

CAML TkC.CORMAX 
> 
IFN FT2KFL.< 

EXTERN SUMSEG 

PU"^HJ PDP. SUMSEG 
> 

POPJ PDP. 
IFN FTSWAP,< 

ADOI LOC.l 

MQVNS LOC 

4DDM LOC, VIRTAL 



000146 ' 

000007 
000007 
000000 
000272 ' 



COREIA) NCSCHEDULE tt 
JUMRF PROG.CORGET 



HRR£ LOC. PROG 
MLRZ BLK.PROG 
MOVEI r.0 
PUSHJ PDP.CORSTG 



(PREVENT SCHEDULING 



)TAC1=0LD SEG SIHE 

(IS BEING REOUESTED? 

lYESi PRFTFN" -KDEPEMD ON ASH BUG WHICH KEEPS 

I ON RT, SHIFT) 

(CONVERT TO i-Q, OF K-l(01.0.1.2. , ■ . ) 

(NO, OF K-1 INCREASE=NEW-0LD-1 

(IS THERE ENOUGH FREE VIRTUAL CORE IN SYSTEM? 



( YES, IS REQUEST LESS THAN MAX, ALLOWED COR+1? 

(YES. IS SUM OF SEGS LESS THAN MAX. ALLO»lED CORE + 1? 

(NO. ERROR RETURN 

(YES. GET NO. OF K OF INCREASE 

(MAKE MINUS FOR UPDATE 

(AND UPDATE TOTAL VIRTUAL CORE IN SYSTEM 

( SINCE THIS REQUEST CAN BE SATISFIIED 

(PREVENT JOB SCHEDULING 

(OLD ASSIGNh'ENT 0? 

( IF YES, DO NOT ATTEMPT TO RETURN OLD C^RE 

(NO, ABS. LOC, OF OLD CORE 

(HIGHEST LEGAL RFL, ADR, 

(CLEAR FOR CORSTO CALL 

(RETURN OLD CORE TO FREE STORAGE 
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412 








iCORGtT 


IS CALLED BY S«IAPPER 


413 








i W i N T K D 


IN CORE. 


41 4 














415 


-^afne 


403540 


000007 


CORCn ! 


SETH^ LOC»PROG 


415 


H0(?l47 


322040 


000227' 






JUMPF TAr.DIDLEl 


417 


^10(^150 


260140 


000252' 






PUSH,) pup.holsrc 


418 


(^0P1151 


254f.B0 


000165' 






JRST BAKHLO 


419 








INTERN 


FTTRACK 


4?a 








1 FN 


FTTHACK,< 


421 












EXTERN LASCOR 


422 












■^OVE"-' ITEM, LASCOR 


4?3 














4?4 














425 








> 






426 


000152 


202540 


000007 






MOVE*' LOC.PROG 


427 


000153 


506040 


000007 






MRLM TAC,PROG 


428 


CI00154 


2015C1 


000000 






MOVfl RLK.ITAC) 


429 


000155 


201640 


000001 






MOVE! T,l 


430 


000156 


260140 


000272' 






PUSH.] PDP.CORSTG 


431 


000157 


200504 


000034' 






MOVE SLK, JRTADR(ITEM) 


472 


000160 


3265;-0 


000170' 






JUMP\ BUK.MOVCOR 


433 














434 








IFN 


FTSWAP,< 


435 


000161 


13511^0 


000000 






LDR TACl.IMGOUT 


436 


000152 


242l?0 


000012 






LSH TAC1,12 


437 








> 






438 








IFE 


FTSWAP.< 


439 












MOVEI TACI.0 


440 








> 






441 


000163 


200500 


000007 






"OVE BLK.PRQG 


442 














443 


000164 


364100 


000204' 






SOJA TACl.CLRCRl 


444 














445 














446 















ISET NEW ASSIGNMENT TO AND DIST. 
IIS ?ERO CORE REING REQUESTED? 
INO, SEARCH FOR MOLE BIG ENOUGH 
INONEi GIVE RACK OLD AMOUNT 



SLEAVE TRACKS FOR LAST JOB USING 
I PHYSICAL CORF ALLOCATION 
I (FOR DEBUGGING ONLY) 

ISETUP NEW RELOC 

lAND NEW PROTECT, 

IHIGHEST REl ADR. BEING REdUESTED 

ISET USE BITS IN CORE TABLE 

lOLD CORE ASSIGNMENT 

)WAS THERE OLD MEMORY ASSIGNFD? 

1 NO, 



MOVED 



!SIZE( IN K) OF SEG 0' 
iCONVERT TO WORDS 



DISK TO BE SWAPPED IN 



IJOB HAS NO PREVIOUS VIRT, CORF ( NON-S W AP SYS) 

iMAKE Old ass ignmenT(Blk ) appear to start 

1 AT SAME Place as .^C. 4SSIGMMEiMT(F0R CLFARING) 

ME NEW CORE SIi!E IS BIGGER THA:N 
lOLD, CLEAR OUT INCREASE SO SECURITY Win 
I BE MAirTAI';EO, TACl IS SlgE-l nf OLD 
1 ASSIGNMENT, -1 OF NO OLD ASSIGNMENT 



C3RE1 



LOr.ICAL AND PHYSICAL CORE: ALLUCATlOf, ROUTIiJES 

T. hasting:;/th/rcc ts bi juim 6q 



^47 








ihere: 


WHEN F''EF CORE TABLE D' 


•148 














449 


H051165 






BAKOLJ 


: 


45B 








IFM 


rTSWAP,< 


4'il 












EXTERN XPAND 


4Sa 


t" 2 1 6 5 


P6H140 


00C000 






PUSHJ PDP, XPAND 


4>;3 








> 






4B4 








IFE 


nswAP,< 


4S5 












rFE FT2REL>< 


4'^6 












SOS (PDP) 


4R7 












> 


4 = fl 












IFN FT?RrL.< 


4S9 












EXTERN FRECOR 


4A(* 












pushj pO^iFrfCOR 


461 














4^2 












SOSA (PDP) 


4«.3 












JRST CORgET 


464 












> 


4AS 








> 






4*6 


C0C-166 


554044 


51001571 


nKOLOll 


! HLR? TAC, JBTADR(ITEM) 


467 


ri^cifi? 


2540:;-e 


000146' 






jRST CORr.ET 
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not have enough room for rfq;jest 
;tell Swapper tq swap out 

ISET FOR ERR"R return ANO GET RACK LD CO^E 



ITRY TO OELETE 1 DORMANT HIGH SEG»<ENT, 

I IF REQUEST DOES NOT EXCEFD FREE CORE*D~RMANT SEGS 
lERROR RETURN-NOT FmouGH CTRE. GET OLD A>>OUNT BACK 

II OriRMANT SEG DELETED. TRY RECJUFST AGAI> 



(GIVE BACK OLD CORE. 
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468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 

4sia 

4fll 
4S2 
4«3 
484 
4S5 
4P6 



iMOVE OLO CORE To NEW AREA 

00017a 306552 0000510 MOVCOHl CAIN LOC,(BlK) 

!"01?171 ?540:'0 0002113' JRST CLRCOR 

000172 5541^0 000012 mLRH TACIiBLK 

000173 303l>-n 0000'50 CAILE TACI.(TAC) 

000174 550100 0000^1 HRR2 TACl.TAC 

IFM rrTlMEi< 

EXTERNAL SHFMRD 

000175 ?72i;?0 000000 ADQM TACl.SHfWRD 

> 

000176 2701''0 000013 ADD TACl.LOC 

000177 ^00640 000013 MOVE ACl.LOC 

000200 504640 000012 HRL ACl.RLK 

000201 4020514 000166' SETHM JBTAOR(ITEH) 

000202 251642 0000510 rlT ACli(TACl) 



US NEW CORE IN SAME PLACE AS OLH? 

lYES, 00 NOT MOVE IT, CLEAR I^ INCREASE 

(LENGTH OF OLD CORE 

I IS OLD CORE LESS THAN NEW? 

INO, MOvF The shortened "JEW CORE 



I INCREMENT total NO, l^OROS SHUFFLED 

lAOO IN NEW RELOC, 

IDFST,=NFw RELOC. 

IS0URCE=0L0 RELOC, 

IFLAG THAT CORE IS IM TRANSIT(TTY RQUTINrS) 

IMOVE CORE TO NEW ASSIGNMENT 



;CLEAK INCREASE IF NEW CORE IS BIGGER THAN OLD 



4R7 000203 554ld0 000012 CLRCO«: HLRg TACa,8LK 

4B8 000204 317040 000002 CLRCRl! CAMG TAC.TACl 

4R9 000205 254H00 000216' JRST DIDLE 

490 IFN FTTlMEi< 

491 000206 200640 000001 MOVE ACl.TAC 
49? 000207 274640 000002 su? ACl.TACl ' 

493 000210 272640 000000 aDOm ACI.CLRWRO 

494 > 

495 000211 2711-7 000002 ADD] TACl,2(PR0G) 

496 000212 271^47 000000 ADOI TAC,(PR0G) 

497 000213 4020^2 777777 SET^m -l(TACl) 

49a 0002J4 5051C2 777777 hRLI T ACl , -1 ( T AC 1 ) 

499 000215 ?511"1 000000 RLT taCI.ITAC) 



lOLD CORE SI2E-1 

MS NEW CORE SIZE-1 VREATER THAN OLD CORF SIi!E-l 

iNO, DO NOT CLEAT ANY CORE 

INEW CORE SIZE 

(LESS OLO CORE SIZE 

lACCUMULATE NO, OF WORDS CLEARED 

lYES, OLD SIZE-1+NEW REL0C*2=2ND LOC TO CLEAR 

INEW SI2E-1+NEW RELOC=LAST LOC TO CLEAR 

ICLEAR FIRST WORD 

ISET LH TO FIRST ADR. TO CLEAR 

ICLEAR THE INCREASE OQRTION 
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5?0 








5?1 








5?2 








i''3 








5.''4 








5-5 








576 








5!'7 








■5C8 








5^9 








510 








311 


f 0f"216 


2755'52 


000000 


512 


00?217 


3122f»0 


000067' 


513 


00022a 


334047 


000000 


514 


000221 


200040 


000000 


515 








516 








517 


000222 


3072f0 


000064' 


518 








'il9 


000223 


603£'i0 


010000 


520 


000224 


2540,-0 


000227' 


521 








522 


000225 


27254 7 


000000 


!i23 


000226 


272547 


000300 


524 


000227 


202344 


000201 ' 


!>25 


000230 


3122-0 


000217' 


526 


000231 


2540-0 


000236 ' 


52 7 


000232 


200040 


000000 


5 28 


000233 


307043 


000000 


5-29 


000234 


270140 


000013 


53 


000235 


260140 


000000 


531 








532 


000236 






533 








534 








5 3 5 


000236 


260140 


000000 


536 








5-^7 








5-!8 








539 








540 








541 








542 


000237 


403040 


000045 • 


543 


000240 


260110 


000252' 


544 


000241 


2540-."K 


000245' 


545 


000242 


271552 


000i'01 


546 


000243 


312640 


000000 


547 


000?44 


702540 


000237' 


548 


700245 






549 








550 








551 


'00245 


201040 


777777 


5';2 


000246 


260140 


000252' 



ilE THE SHUEELED V.03 IS V<t EVEf "lOOE, ITS OU^P ACS 
;(POo,pRnG.j?AT SAVE'^ I\ JOB DATA AREA) «<LST BE 
lALTEKED BY niSTA\CE COiRE WA'= ►<OVEr' 

ME THE SHUETlED job IS CUPRFNT joP, THE SOFTWARE STATE OE 

!THE MONITOR* IE SQEl'vAPE I'^Ff r^E JOB) MUST dE ALTERED RV AMOUNT 

1C?><E WAS MOVED 



EXTERNAL SYSSIZ 

niHLE: SUPI LOC,(RLK) 

CAME ITEM.JQD 

SKIPA TAC, JOPPC( JOAT) 

MOVE TACUSRPC 
IE»' FT2RFL>< 

EXTERN J08MAX 

CAIG ITEm.JOPMax 
> 

TLNE TAC.USRMOn 
JRST DIDLEl 

ADOm LOC, jilBnPT(jOAT) 
ADOM LOC, jnanPct JHAT) 
niDLEli MOVE^ PROG ■ jpTadR ( ITfm ) 
"■AME ITE",JOR 
JRST niCLE3 
''OVE TACSYSSI? 
CAIG TACIPTP) 
ADO pdP.lOC 
PUSriJ POP.SETREL 

OIOLEJi 

IFN FT2RELi< 

EXTERN CURUGH 
PUShJ PDP.ruRHGH 



SET^B TACHQlEF 
OUSHJ PDPiHOlSRC 
JRST cnROK 
AODI LOCKBlK) 
CAWE T.CORUST 
'HOVE" LOC.HOlEf 

COROK! 

IFN FTSW4P,< 

EXTERNAL BIGmOlE 
MOVEI TAC.-l 
PUSHJ PQP.HDtSRC 



(DISTANCE JOB WAS MOVEn ( OEST , -SOURCE ) 

IIS THIS CURRENT JOS? 

INO, GET PC IN JOB DATA AREA 

(YES, PC IN PROTECTED SYSTFM APEA 



IIS THIS A HIGH SEGMENT? 



li'lO, IS JOB IN USER MODE? 

;YES, Do NOT ALTER DUMP ACS 

! BECAUSE THEY ARE THE USERSIOR HIGH SEG) 

INO. ALTER DUMP POP BY DIST, OF MOVE 

IANO ALTER PROG 5Y DIST, MOVED 

ISTORE NEW cnRE ASS IRNmenT (LOW OR HIGH SrG) 

IIS THIS CURRENT JOB? 

I,NO, 00 i^'OT ALTER STATE nF MONITOR 

IDONT CHANGE POP IF LIST 

I IS IN SYSTEM 

lYES. ALTER PUSH DOWN POINTER BY AMOUNT nF MOVE 

IGO SETUP NEW HARDWARE AND SOFTWARE RELOrATION 

I INFORMATION FOR HIGH AND LOW SEGS FOR CURRENT JOB 



ICWECI^ TO SEE IF THIS CORE ASSIGNMENT IS FOR 
) HIGH SEG WHICH CURRENT USER MAY ALSO BF USING 
) IF YES. RESET HARDWARE ANM] SOFTWARE RElOC INFO. 
! RETURN WITH ITEM PRESERVED, PROG SET TO RFLOC 
I OF SEG WHICH HAS JUST HAD CORF RFASSIG^'ED 



ICLEAR HOLE FLAG 

IIS THERE A k-ON-i!ERO HOLE? 

I MO 

lYES, FORM ATR, OF JOB JUST ABOVE HOLE 

I IS MOI-E AT TOP OF MEMORY 

INO, FLAG WITH AHORESS OF JQR AdOVE HOLE 



IFIND BIGGEST HOLE 
lALWAYS GET ERROR RETURN 
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553 


fl0C"247 


240700 


777766 


ASH T1,-tD10 


554 


!J10(<25I3 


2027(^0 


000000 


MOV£M Tl.BlGMOLE 


555 






> 




556 








SCHEHULEtt 


557 


PI0B251 


254000 


000122' 


JRST CPOPJl 
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ICONVERT TO IK BLOCKS 

ISKIP RETURNtUNLESS ERROR) 



nOfEl - LOGICAL 4N0 PHYSICAL CORE ALLOCATION ROUTli^rs - V414 
T. HASTINGS/TH/RCC TS 04 JIJiM 69 



S'ACRO.V^A 19!03 4-JUN-69 PAGE 26 



■56: 

562 
5«3 
?64 
■5*5 
566 
5*7 
36ft 
569 
57(1 
571 
57^ 
5 7.3 
5 74 
5 7 5 
576 
57 7 
578 
579 
5 " i" 

5C:: 
5 s :i 

5P4 
5fi5 
5 = 6 
5'<7 
586 
5 0? 



IRQUTINE TO FIMD HOLE aiG ENOUGH FOR RFqueST 
ICALL= MOVE TAC, HIGHEST REl. AQP, ASKING FOR 
PUSHJ PDP.HQlSRC 
RETURN! ;N0 HOLES Pir. ENOijGH 
RETURN? ;T HYTe SET tq l'ST BL0ck*1 in HOLE 

;BLK Sft TO JIGHFST PEL. LOC, IN THAT HOLE 
ILOC SFT TO JDORFSS OF FIRST Bl OCK IM HOLE 
;T1 = LARGFST iJOLE SEEN 



USES TACl 

!"0!'252 ?l!)0640 00?I313' HOLSRC; hove T,C0RE2P 
f!0C"25J 403540 00?i016 SET?n LOC.Tl 

C"0r"254 6345:'0 000012 CORHOL: TD?A BLK.BLK 

f00255 2716-'e 002000 CORHO0: 4D0I BLK,2O00 

^00256 316640 000243' CORHnl! CAMN T.CORLST 

0002^7 263140 0000fi0 DQPj POP, 

^00260 134l'0 000015 ILHP TACl.T 

000261 271540 002^00 ADOl LOC, 2000 

"'0l'2<2 3221-.0 000255" ju«PF TAC1.CORHO0 

0002*3 3225^0 000255- JU«<Pr qLK.CQRHOl 

IFN FISWAP,< 

000264 3135>'0 000016 CAMLF RLK.Tl 

!'00265 ?025^0 000016 MOVE" fLK.Tl 

> 

00!'266 3175'0 000001 cAMG BLK.TAC 

000267 254,">0 000254- JRST CORHOL 

000270 275552 002000 5URI LOG , 2000 ( RLX) 

000271 3645-"0 000251- t;0JA HLK.CPOPJl 



IBVTE POINTER TO FIRST BlT-1 
ISTART AT BOTTOM OF MEMORY 
I LARGEST HOLE SO FAR=^ 
ISTART BLK AT AND SKIP 

I INCREMENT HIGHEST REL LOC. 

laVTE POINTER TO 1ST NON-EXISTAMT BLOCK 

IN" "ORE CORF TO SEARCH 

IGET NEXT CORE USE BIT 

IINCREMEWT AOORESS OF BLOCK 

I IS THIS BLOCK IN USE? 

lYES, HAVE ANiV FREE BLOCKS BEEN SEEN YET? 

lYES. BIGGEST SO FAR? 

lYFs, Save i^ ti. 

lYES, IS THIS HOLE EQUAL OR GREATER ThA\ REQUEST? 

INO, KEEP LOOKING FOR HOLES 

lYES, SET LOC TO FIRST BLOCK IN UQLE 

ISFT BLK TO HIGHEST REL, LOC. 

I AND RETURN 



COREl 



LOGICAL AND PHYSICAL CORE ALLOCATION ROUTINES 
T. HASTINGS/TH/RCC TS 04 JUN 69 



V414 



MACRO, V36 19!03 4-JUN-69 PAGE 27 



590 






IROUTIN 


591 






)CALL! 


592 






i 


593 






! 


594 






1 


595 








596 








597 








596 








599 


(50?272 


261140 


000001 CORSTGi 


6f"f) 


000273 


240500 


777766 


61^1 


000274 


271500 


000001 


6!^2 


000275 


332000 


000015 


6(»3 


000276 


213000 


000012 


6C4 


000277 


272500 


000000 


605 


000300 


200040 


000013 


6!?6 


000301 


240040 


777765 


607 


000302 


231040 


000044 


67!8 


000303 


270040 


000313' 


5i?9 


000304 


213000 


000002 


610 


000305 


271100 


000044 


611 


000306 


137100 


000325' 


612 


000307 


217000 


000012 


613 


000310 


136640 


000001 


614 


000311 


367500 


000310' 


615 


000312 


254000 


000000 


616 








617 


000313 


440100 


000000 C0RE2PI 



(ROUTINE TO SET AND CLEAR CORE USE TABLE 
MQVEI T,l !T0 "^ET TABLE 
MOVEI T,0 ;T0 CLEAR TABLE 
MOVE BLK, HIGHEST REL, LOG. IN USER AREA 
»<OVE LOC, ADDRESS OF FIRST BLOC< TO SET CLEAR 

INTERN C0RE2P 
FXTERN TPOPJ 



ASH BLK.-12 
AOOI BLK.l 
SKIPE T 
MOVNS BLK 
ADDM BLK.CORTAL 
■^OVE TAC.LOC 
ASH TAG. -12 
IDIVI TAC,«D36 
ADD TAC.C0RE2P 

MOVNS TACl 

ADDI TAC1,'D36 

DPR TACI.CPOINT 6,TAf,5] 

MOVMS BLK 

IQPB T,T4C 

SOJG BLK, .-1 

JRST TPOPJ 

POINT I.CORTAB 



ISAVE HIGHEST LOC, BEING REQUESTED 

(CONVERT TO NO, OF BLOCKS-1 

(NO. OF BLOCKS 

(UPDATE NO OF FREE BLOCKS 

(DECREASE IF SETTING BITS 

IINCREASF IF CLEARING, DECREASE IF SSETTlvG BITS 

(ADDRESS OF FIRST BLOCK 

(FORM BYTE POINTER TD BIT-1 

(TAC=W0RD,TAC1=BIT 

(FORM BYTE POINTER 



(GET MAG. OF NO. OF BLOCKS INVOLVED 
(SET OR CLEAR EACH USE BIT 

(RESTORE TAC, AND POPJ 

(BYTE POINTER TO FIRST BIT-1 



""" " ^?'i^ST,:S;UH;^c?'^^"«/i^r:;'°^ '"'''''' - '''' -'^^^•"* ^-^3 .-.U.-6, PAGE 2, 



61B 
619 
6?0 
6?1 
6?2 
6?3 

6?5 
6?6 
6P7 
6?8 
679 
6,10 
6:^1 
612 
613 
614 
615 
616 
617 
618 
619 
640 
6'11 
642 



(?3?314 
K0C315 
(?0f316 
("0C317 
P'0f^32e 
^00371 
P'00372 
C50C373 
("0C374 



C0C375 
00C375 



4020,77 
205S147 
541047 
2001^7 
751047 
702l?7 
4070/7 
4B?P'->7 
2540?f? 



00!'000 

00!?314 ' 

000030 

000000 

00!'!000 

C00317' 

0000f^0 

000000 

000200 



3606.''0 000^71 



ROUTINE TO .-LEA< PART Or JQi- OiT AREA(P4RT PROTECTEn FRDM USER 10) 
LALU-D Wh-N NEW CORE ASSIGNFO A^D AT SySTEM RESTART(143) 



«CVE ITE'i.JO--' VO, 
CALL! '-OVE jnAr.AOR. OP JO'- DATA AREA 
PUShJ pDp.ClRJTH 

INTERiVAL CLRJOB 

EXTERNAL JOBPRT.jOBPPl, jnsPFI, JOPE^d 

FXTERMAL jngPDl , .jQRoriT 



':LRJOrii 9ET£" JOfiPRTf JTAT) 

MOVSI TAf:, JORPRT(jDAT) 
HRRI TAG, JOBPRk JDAT) 
VOVE TACl, JDQDnT(jDAT) 
=LT TAT, JOHPFI (JOAT) 
"OVE** TACl, JCBDOTC JDAT) 
■^ET?" JOPENBtJTAT) 
SET^y JQPPDKJTAT) 
jRST ESTcPl 



IFIHST LHC, PROTECTED FROM USER 



ISAVE DDT STARTING ADDRESS 



lALSn CLEAR APR ENABLE vJORn 

lAND UUO PC FL/iGS(USED WHENi JOB STARTS) 

!Gn SET joR <;tatus, so cont will 

I NOT WORK, (no NOT CLEAR JACC" BIT) 



CORENU: FM1 



NO ERRORS DE-^ECTED 



PROGRAM RREAK IS 000126 



CCREl - LOGICAL AND PHYSICAL CORE ALLOCATION ROUTINES - V414 
SYMBOL TABLE 



MACRO, V36 19103 4-JUN-69 PAGE 29 



ACl 


200015 


INT 


AWY 


!»0PI075' 




ANYQEV 


00(5061' 


INT 


BI'^HOL 


000250' 


EXT 


RUrPNT 


000012 


INT 


CHKSWF 


000021' 


INT 


CL'^CRl 


0002?4 ' 




COREO! 


000113' 


INT 


COREIA 


K00141' 




rORERR 


000014' 




roRHoi 


000256' 




CORMAX 


000015' 


EXT 


CORTAB 


000313' 


EXT 


roRuuo 


000000' 


INT 


OAT 


000005 


INT 


OEVMOD 


000004 


INT 


nlDLES 


0002.'56' 




FIT 


000050' 


EXT 


FTCCL 777777 777777 




FTRC10 777777 777777 




FTTRAC 


000000 


INT 


HOLLOP 


000026' 




I04CT 


0100710 


INT 


ITE1 


000004 


INT 


JBTMAX 


000025' 


EXT 


JDAT 


000007 


INT 


JOHOAC 


000000 


EXT 


JOPOPD 


0002?5* 


EXT 


JORJDA 


000065' 


EXT 


joppc 


000220' 


EXT 


JORPRl 


000316' 


EXT 


KCOREl 


000110' 


INT 


NOTSHl 


000041' 




NSWP 


010000 


INT 


PROG 


000007 


INT 


SETREL 


000235' 


EXT 


SHFWAT 


000053' 


EXT 


STOTAC 


000020' 


EXT 


SYSSI2 


000232' 


FXT 


TAC 


000001 


iNT 


TRYSWP 


000104 ' 


INT 


IJSRMOD 


010000 


INT 


VCORFl 


000414 


INT 


XPANR 


000165' 


EXT 



AC2 


000016 


INT 


ANY2 


000077' 




ANYSAV 


000107' 


EXT 


RKOLTl 


000166' 




RUFWRD 


000013 


INT 


CLKCWL 


000000 


EXT 


CLRJOS 


000314' 


INT 


CORE0A 


000123' 




rORE2P 


000313' 


INT 


rORGET 


000146' 


INT 


CORHOL 


000254 ' 




COROK 


000245' 




fORTAL 


000277' 


EXT 


rpopji 


000271' 


FXT 


OEVDAT 


000006 


INT 


ninLE 


000216' 




nvTTY 


000010 


INT 


FORCE 


000047' 


EXT 


FTfJISK 777777 777777 




FTSWAP 777777 777777 


INT 


FTTRPS 777777 777777 


INT 


MOLSRC 


000252' 




IDS 


000000 


INT 


JBTAOR 


000227' 


FXT 


JBTSTS 


00011 7' 


FXT 


JOB 


000230' 


FXT 


JORDAT 


000000 


FXT 


JOBDPG 


000226' 


EXT 


JORJMH 


000072' 


FXT 


JORPOl 


000323' 


FXT 


JORPRT 


000315' 


FXT 


LOr 


000013 




NOTSHF 


000045' 




OERROR 


000033' 


EXT 


SCORFl 


000111' 




SHF 


004000 


INT 


ShFWRD 


000175' 


FXT 


SUMSEG 


000174' 


FXT 


T 


000015 




TACl 


000072 


INT 


UCORHI 


000011' 


EXT 


USRPC 


000221' 


FXT 


VIRTAL 


000140' 


FXT 


'ERCOR 


0000) 6' 





AC3 


000017 


INT 


ANYACT 


000057' 


INT 


BAKOLD 


000165' 




PLK 


000012 




CHGSWP 


000121' 


FXT 


CLRCOR 


000203' 




CLRHRO 


000210' 


rXT 


rOREl 


000126' 


TNT 


COREMD 


000325' 




CORHO0 


030255' 




CORLST 


000256' 


FXT 


CORSTG 


000272' 




CORUl 


000010' 




CURHGM 


000236' 


rXT 


DEVIOS 


000002 


INT 


OIOLEl 


000227' 




ESTOPl 


000324' 


FXT 


FT2REL 777777 777777 




FTLOr.I 777777 777777 




FTTIME 777777 777777 


INT 


HOLEF 


000244' 


FXT 


IMGOUT 


000161' 


FXT 


lOWAIT 


000002' 


FXT 


JBTDAT 


000000 


rxT 


JSTSWP 


000000 


FXT 


JOBADR 


000000 


FXT 


j03DnT 


000321' 


FXT 


JQBENB 


000322' 


FXT 


JORMAX 


000222' 


rXT 


JOBPFI 


000320' 


FXT 


JORREL 


000000 


FXT 


MOVCOR 


000170' 




nShf 


001000 


INT 


POP 


000003 


INT 


SEGSIZ 


000125' 


FXT 


SHFLOP 


000034' 




STOPTS 


000123' 


FXT 


SWP 


002000 


INT 


Tl 


000016 




TPOPJ 


000312' 


rXT 


IJSRJDA 


000070' 


FXT 


USRRFL 


000000 


rXT 


WSCHED 


000016' 


rXT 



t 


6* 


6 




ACl 


6# 


6 


46 


AC? 


6« 


6 


47 


Ac:^ 


6l!! 


,225 


230 


AEI^EPR 


6# 


6 




AL 


6# 


6 




AM^ 


2?6« 


;??B 




ANY2 


2?8# 


232 




A N Y A r T 


156 


156 


199# 


ANYQFV 


196 


2^1 


2?I7« 


AN^'SAV 


249 


2S0 




ASSC1N 


6# 


6 




4SSP5G 


6« 


6 




P 


6# 


6 




"AHOLD 


418 


449# 




niGHPL 


550 


5 = 4 




RKCL^l 


466« 






PLK 


44« 


4.^9 


428 




590 


5<J2 


583 


fiUFPMT 


6« 


6 


44 


nUFURD 


6# 


6 


45 


f Hr.SWP 


3J4 


343 




rHKSur 


138 


141« 




TLKCML 


139 






rLKR 


6« 


6 




CLRCOR 


471 


4 = 7* 




riRCRl 


443 


4,iS<< 




HLRJOB 


6?5 


629« 




riR^RO 


293 


493 




"LSI" 


6« 


6 




PLSO'.'T 


6« 


6 




r M w '5 


6# 


6 




n R (>■ T 


6W 


6 




tore:? 


299 


3]9# 




rORC^A 


325 


3^,'2# 




nOREl 


16 


71 


290 


"OREIA 


272 


4-'5# 




roRE?P 


569 


&?6 


6f!8 


rORff'D 


641« 






rORFRR 


72 


F4 


88« 


CORGrT 


290 


4^6 


4 15« 


roRHoe 


574)J 


579 




roRmi 


blbe 


59E 




rORHOL 


572« 


S96 




rORLST 


293 


546 


575 


noR^A.x 


l?l 


295 




nCROK 


544 


548# 




CORSTG 


411 


432 


599* 


CURTAB 


293 


61 7 




rORTtL 


62 


293 


6C.4 


rooui. 


69 


74« 




roRu JO 


51 


f-'in 




npop ji 


212 


2?9 


243 



480 



361 



481 



483 



491 



492 



493 



431 
585 



432 
587 



441 
588 



470 
6f 



472 

6C1 



481 
61^3 



487 
6f"4 



511 
612 



545 
614 



572 



574 



342 



61/« 



467 



379« 



294 



295 



324 



350 



557 



588 



CURHGH 


534 


575 




n 


6# 


6 




DAT 


6# 


6 


153 


ncu 


6# 


6 




ncui 


5# 


6 




nCLO 


6*1 


6 




nCLR 


6# 


6 




no I 


6# 


6 




nuo 


6# 


6 




nEN 


6« 


6 




nEVAPIR 


6# 


6 




OEVBUF 


6# 


6 




OEVCMR 


6* 


6 




nEVCTR 


bit 


6 




nEVDAT 


6# 


6 


226 


HEVEXT 


6# 


6 




HEVFIL 


bit 


6 




HEVIAO 


b# 


6 




REVIOS 


bit 


6 


227 


nEVLOG 


b# 


6 




HEVMOD 


bit 


6 


230 


nEVNAM 


bit 


6 




nEvoAD 


bit 


6 




nEVPPN 


bit 


6 




nEVPTR 


bit 


6 




DEVSFR 


bit 


6 




HGF 


bH 


6 




nHPJG 


6# 


6 




nIDLE 


489 


511* 




ninLFi 


416 


520 


524 


ninirs 


526 


532# 




niN 


6« 


6 




niM 


bit 


6 




HLK 


bit 


6 




nMT 


bit 


6 




nNAERR 


bit 


6 




DQU 


bit 


6 




DR 


bit 


6 




ORU 


bH 


6 




ORW 


6« 


6 




nSER 


bit 


6 




nsi 


bit 


6 




nSKRLB 


6« 


6 




oso 


bit 


6 




nvAVAL 


bit 


6 




IVCOR 


bit 


6 




nvniR 


bit 


6 




nvniRi 


bit 


6 




nvnis 


bit 


6 




nvnsK 


bit 


6 




nvnij 


bit 


5 




nviN 


b» 


6 




nvi,NG 


bit 


6 





227 



230 



':vLPT 


6« 


6 








nVMTA 


6' 


5 








nvcuT 


6M 


6 








nvPTP 


5« 


6 








nVPTR 


6# 


6 








"IVTTV 


6« 


6 


225 






rnjR!^ 


6« 


6 








F'STOPl 


f-3 


63 7 








^■8"ERR 


6K 


6 








FIT 


176 


178 








r'NFERR 


6« 


6 








FORCE 


176 


177 








FRGSFG 


6# 


6 








fTPRTL 


6« 


75 


»0 


2lt) 


241 


fTATTA 


6# 










PTCCL 


HP 










PTCHEC 


6# 










FTniSK 


1Z# 










FTEX4M 


6« 










ETFIM 


6# 










FTCETT 


61 










FTHALT 


bn 










ftkct 


6# 










FTtOGI 


\2* 










F rMQMP 


6« 










F TPRV 


6« 










FTR410 


6« 










FTRC10 


iia# 










F-'RCHK 


6« 










F"RE4S 


6« 










ft<;lee 


6# 










FTSWiP 


10« 


69 


96 


lan 


138 




•(38 


450 


454 


549 


5S1 


FTTALK 


6# 










F!TIS-E 


5# 


290 


475 


49«3 




FITRJC 


6# 


419 


420 






FTTRPS 


6» 


290 


355 






FTTTVS 


6# 










HOLEF 


139 


144 


151 


173 


293 


NOLLOP 


117« 


149 








HOLSRC 


417 


543 


552 


569# 




WS4M=;k 


6* 


6 








HSAPnS 


6# 


6 








MSASIZ 


6# 


6 








HUIUGCT 


6<l 


6 








HUMGST 
I 


6« 

6« 


6 
6 








IB 


6« 


6 








IBUFB 


6« 


6 








ICLO'^B 


6« 


6 








IL'i 


6« 










ILUERR 


6» 


6 








IMGOUT 


3?4 


«35 









253 



327 



334 



391 



394 



5 15 



533 



175 



542 



2^0 



547 



241 



290 



320 



323 



3P1 



399 



4J4 



IMBFn 


6# 


6 


INITR 


6# 


6 


INPB 


6« 


6 


10 


6# 


6 


lOiCT 


6# 


6 


lOPEK 


6# 


6 


lORKTL 


6« 


6 


rOROT 


6# 


6 


loroM 


6# 


6 


tODENO 


6# 


6 


lOOEBR 


6« 


6 


lOTTTR 


btt 


6 


lOENn 


6« 


6 


lOFST 


6# 


6 


[OIMOM 


6« 


6 


lONRf-K 


6# 


6 


lOPif) 


6# 


6 


lOS 


6« 


6 


lOTEND 


£j« 


6 


lOUSE 


6# 


6 


tow 


6# 


6 


r OWA! T 


63 


f 7 


I owe 


6« 


6 


IPPEPR 


6« 


6 


ITEM 


6# 


6 




211 


216 


JACCT 


5# 


6 


JBFAfR 


6» 


6 


JBFCTR 


0# 


b 


JRFPTR 


6« 


6 


JBT AHR 


139 


l''? 


JHTDAT 


29;' 




JHTMAX 


139 


l'!6 


JbTSTS 


l.-^9 


16 6 


J B T S W P 


3=53 




JBl'F 


6« 


6 


JDAT 


5» 
636 


6 


JERR 


6# 


6 


JLOG 


6# 


6 


JNA 


6# 


6 


JOR 


*2 


216 


JORAHR 


2<51 


29? 


JOPDAC 


292 




JORDAT 


292 




JORDDT 


627 


6 32 


JORDOO 


294 


522 


JOROPG 


294 


5?3 


JOaEVB 


294 


626 


JORJOA 


215 


291 


JORJMH 


220 


294 


JORMaX 


197 


211 


JORPr 


292 


513 



219 



219 



141 
245 



155 



184 



158 



291 



634 



635 



516 



146 

341 



2?/ 



213 



512 



147 
4 31 



'31 



243 



513 



525 



149 i'-.e 
466 402 



466 



155 
512 



166 

517 



178 
524 



179 

575 



lf>2 



lfl4 



2.7 



4B2 5p<i 
2 4 5 3 41 
522 5-=3 629 63a 6:<l 



632 



633 



t^-,b 



517 



jonpni 


6?7 


63(1 




















JOPPFI 


6?6 


6 33 




















JORPRl 


295 


6PlJ 


631 


















JORPRT 


205 


62 6 


629 


63k) 
















JORRTL 


292 






















jRrj 


6« 


(1 




















JWPOS 


6« 


(J 




















JWSI? 


6# 


(J 




















JXPM 


6« 


6 




















KCnRFl 


266 


26i># 




















Ll'^TSN 


6 






















LOC 


45# 


3fi4 


385 


if?; 


388 


3P9 


A?0 


4IZ1 


432 


4?B 


415 




4«;i 


51.1 


522 


523 


529 


345 


547 


570 


578 


587 


6H5 


uotk;^ 


6« 


6 




















tlE'^Oi.E 


6« 


t 




















"OVCPR 


<1.'<2 


47i:')» 




















'•■fF.BR 


6« 


fr 




















MLTirijR 


6« . 


d 




















•VOTSU 


Ifi4# 


174 


180 


















Norsup 


1 = 7 


17J# 




















NS'^EOR 


5« 


6 




















vSFFRR 


6« 


6 




















r'S'JP 


6# 


6 


2.-8 


246 
















"jSR^I T 


6« 


6 




















«SWP 


5« 


6 


246 


















NX"' 


ft* 






















nHI.'Fc^ 


6« 


6 




















TCI 0?B 


5« 


6 




















n r 1) [j -1 p; 


6J 


^ '^ 3 




















r.UT^ra 


6« 


6 




















-UTno 


59 


6 




















i:':^D 


6« 


6 


'if: 


' / 


f-b 


71 


74 


82 


«7 


88 


90 




l':7 


1 = 5 


2 '2 


2:"' 


2^9 


2 3 1 


247 


269 


336 


339 


343 


o \.- 


6* 


i'-r 


4 1 1 


4 1 ' 


4-11? 


4 = 2 


b'R 


529 


530 


535 


543 


i'hr-G 


4 = 6 


6 

b ,:' 4 


155 


150 


161 


325 


4 '6 


A«e 


47 9 


415 


426 


n fi T r f; R 


6« 


6 




















ovspvj 


6» 


e 




















" V S P Y M 


5« 


6 




















l-Vi"SPS 


S« 


f 




















" t '^ M .1 


Sf 


t 




















(.J^ 


6« 


6 




















"U"A-L 


6« 


6 




















c J":-<SK 


Of 


6 




















'■-C"-^F1 


1'2 


2'-9S 




















';:-i 


5« 


6 




















punsr^ 


i77 


3>-3 




















'■-ETRFL 


^3 


5,'£ 




















"^MF 


6.^ 


6 


165 


1«3 
















S M F L r P 


15J 


1=51; 


1^5« 


















t;HF««T 


1^9 


141 


164 


1?^ 
















PHF„-?D 


476 


477 





















426 



470 



479 



145 
361 
552 

427 



156 
362 
5 76 

441 



lo2 
3b3 
599 

4 J5 



SHRSFG 

BLF-VFL 

SLICF 

SNA 

■=PYSFG 

STOPIO 

RTOPTS 

STflTAC 

STTVPI 

STTYRF 

SIJWSFG 

SWP 

SwPCLR 

SYSDFV 

SYSST2 

T 

Tl 
TAC 



TACl 



TEM 

TPOPJ 

T R Y S ■-< F 
TTYATC 
T T Y 3 ! U 
TT Y'I«;E 

MCnRnI 

!JS= JHA 

' ' s f< M " n 

; I S c p r> 
!.'S'-RFL 



1. UPOFF 
VCHRFl 
V I R T 4 L 
X S r H F D 
U Tf'ASK 

/FRcnR 



6# 


6 


6l» 


6 


6# 


6 


6# 


6 


6# 


6 


btt 


6 


356 


S?? 


63 


in 4 


6# 


6 


6# 


6 


335 


336 


6# 


6 


5« 


6 


6# 


b 


5?9 


527 


46i» 


2 '7 


b75 


577 


17# 


220 


6# 


6 


1'5 


1''6 


4"8 


401 


6?6 


6/7 


6# 


6 


479 


4>: 3 


6:^2 


6, '4 


bit 


6 


b97 


615 


6« 


6 


?r2 


24? 


6« 


6 


6* 


6 


6" 


6 


o« 


6 


"l 


= 2 


6# 


6 


21 7 


291 


6# 


6 


2P5 


514 


''? 


294 


6# 


6 


o# 


6 


6# 


6 


1 Atl 


14 


3fi2 


3?9 


A3 


0? 


6« 


6 


4^1 


452 


6i) 


05# 



395 

340 



2?8 
6/^2 
224 
65 
177 
496 
678 

147 
4>17 



245« 



519 
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